#!/usr/local/bin/perl

use URI::Escape;



print "Content-type: text/html\n\n";



#images.record will hold the images, archives, and other .html and .htm files

sub candelete

{



my $filename = $_[0];

my $verified = '0';

open(USRDEL, "<../checks/files.record");

flock(USRDEL, 1);

while(<USRDEL>)

{



if($_ =~ /^$filename/)

	{

	chomp;

	$verified= $filename;

	#print"file exists for deleting = ".$filename;

	#print"<br>";

	next;

	}

			



}



close(USRDEL);



return $verified;





} # end candelete();



sub rewrite 

{

my $filename = $_[0];



	#print"file name can be rewritten = ".$filename;

	#print"<br>";





my $deleted = 0;

open(USRTEMP, ">>../checks/files.temp");

open(USRDEL, "<../checks/files.record");

flock(USRTEMP, 2);

flock(USRDEL, 2);

while(<USRDEL>)

{



if($_ =~ /^$filename/)

	{

	#print"match = ".$filename;

	#print"<br>";

	$deleted = $filename;

	next;

	}

print USRTEMP "$_";



}

close(USRTEMP);

close(USRDEL);



#return the filename if it exists, else returns 0 for failure

return $deleted;



}#end sub rewrite





sub renamerecord

{

	rename("../checks/files.record", "../checks/files.last");

	rename("../checks/files.temp", "../checks/files.record");

	

}#end sub renamerecord



#decode the URL since it was encoded in the view shown on the images page

my $filename =uri_unescape($ENV{'QUERY_STRING'});



my $candelete = candelete($filename);

#print"about to delete = ".$candelete;

if($filename eq $candelete)

	{

	#the file can be deleted

	rewrite($filename);

	renamerecord();

	unlink($filename);

	#print "file deleted = ".$filename;

	#print "<br>";

	

		if($filename =~ /^archive/)

			{

			print "<META HTTP-EQUIV='refresh' content='0\;URL=useradmin.pl?data_removed'>";

			print "If your browser does not support META refresh. <a href='useradmin.pl?data_removed'>Return to Survey Administration page</a>";

	

			}

		else

			{

		print "<META HTTP-EQUIV='refresh' content='0\;URL=useradmin.pl?images_removed'>";

		print "If your browser does not support META refresh.<a href='useradmin.pl?images_removed'>Return to Survey Administration page</a>";

			}

	}

	else	

	{	#file not found

		if($filename =~ /^archive/)

			{

			print "<META HTTP-EQUIV='refresh' content='0\;URL=useradmin.pl?data_not'>";

			print "If your browser does not support META refresh.<a href='useradmin.pl?images_data_not'>Return to Survey Administration page</a>";

	

			}

		else

			{

			print "<META HTTP-EQUIV='refresh' content='0\;URL=useradmin.pl?images_not'>";

			print "If Your browser does not support META refresh.<a href='useradmin.pl?images_not'>Return to Survey Administration page</a>";

			}



	}